home *** CD-ROM | disk | FTP | other *** search
/ Inside the White House / Inside the White House.iso / prez.dir / 00237.ls < prev    next >
Encoding:
Text File  |  1995-08-01  |  461 b   |  17 lines
  1. on mouseUp
  2.   global gFPicStart, gFPicEnd, gFPicSprite
  3.   puppetSound("newclick.aif")
  4.   set the ink of sprite the clickOn to 4
  5.   updateStage()
  6.   repeat while the stillDown or soundBusy(1)
  7.   end repeat
  8.   set the ink of sprite the clickOn to 36
  9.   updateStage()
  10.   set cnum to the castNum of sprite gFPicSprite
  11.   if cnum = gFPicStart then
  12.     set the castNum of sprite gFPicSprite to gFPicEnd
  13.   else
  14.     set the castNum of sprite gFPicSprite to cnum - 1
  15.   end if
  16. end
  17.